home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #11 / CD 11 (Black) - 2001.iso / Fruity / GUSHERS.DXR / 00009_FlyingSaucerObj.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  572 b   |  18 lines
  1. property pSaucerList, pSaucerLocList
  2.  
  3. on new me
  4.   set pSaucerList to [37, 38, 39, 40]
  5.   set pSaucerLocList to [point(255, 28), point(316, 85), point(368, 30), point(492, 38), point(403, 22), point(453, 57), point(429, 72), point(75, 31)]
  6.   return me
  7. end
  8.  
  9. on mUpdateSaucer me
  10.   set saucerLoc to getAt(pSaucerLocList, random(8))
  11.   repeat while the loc of sprite 3 = saucerLoc
  12.     set saucerLoc to getAt(pSaucerLocList, random(8))
  13.   end repeat
  14.   puppetSnd(1, "SaucerSlide")
  15.   slideAnim(3, the locH of saucerLoc, the locV of saucerLoc, 20, 3, pSaucerList)
  16.   updateStage()
  17. end
  18.